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ITLE NETPR RE - Process creation 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS ihe IS ieee UNDER A LICENSE AND MAY BE USED AND gt 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
Sd Le THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
onppokation. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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;++ 
; FACILITY: NETWORK ACP 


; ABSTRACT: 
; THIS MODULE PERFORMS PROCESS CREATION FOR AN INBOUND CONNECT. 


; ENVIRONMENT: 
; MODE = KERNEL 


; AUTHOR: SCOTT G. DAVIS, CREATION DATE: 10-AUG-77 
; MODIFIED BY: 


3 v03-024 soe cor? Alan D. Eldridge 18-Jul-1984 

: hen Rr a for a free XWB slot, don't allow either byte of 
: th e local Link number to be equal the character ‘'* since 
3 that results in some se cm ay NCB parsers to break. 


v03-025 PRBO340 aul Bec 18-Jul-1984 16:10 
Test against LGIs. YAVEOS” for invalid access instead of magic number. 


v03-024 ADE0038 $ ‘Co 25-Jun-1984 
Change SS$ _NOLINKS" to Pes CONN CFAIL on problems finding 
or creating logical-link fesources. 


v03-023 ppentes Rod Gamache 12-Jun-1984 
ange calling conventions for calls to NODE “COUNTER 
sac access routines. 
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v03-022 PRBO331 Paul Bec ri ety: 0:19 
le Look for EPID Treteed of IPID in OBI ? PID 
2. Fax ‘sallere of NETSDELIVER_ 
v03-021 ADE0001 Alan D. Eldridge 1- aoe r=1 
When comparing remote link addresses in NETS ROC KES, ignore 
an address of zero. 


v03-019 PRBO317 Paul Beck 8-Mar-1984 17:36 
Force created network processes to use DCL as their default 
ct -. independent gf the default CLI for the specified account. 
x bug in ADE003 


v018 ADE0035 Alan D. Eldridge 14-Feb-1984 
Create LLI entry when receive Roti fication + anew XWB. 


v017 RNGOO17 Rod Gamache 7-F eb-1984 
Fix initialization of local storage in NETSDELIVER_CI routine. 


v016 TMHOO16 Tim Halvorsen 23-Jun-1983 
Fix selection of waiting network processes so 
that processes which were activated with diffe 
default accounts (using default accounts on di 
objects) are correctly selected. 


v015 RNGOO15 Rod Gamache 20-Apr-1983 
Fix branch destinations out of range. 


v014 TMHOO14 Tim Halvorsen 03-Mar-1983 
If requested object name starts with then 
a default filespec of, SYSSSYSTEM (rather than SYSSLOGIN) 
since objects with a ‘’$"' are reserved to DEC. 
Allow STARTUP_OBJ to be called with an object name 
as well as a number. 
Notify new DLE module of process termination. 


vo13 TMHOO13 Tim Halvorsen 14-Feb-1983 
Remove node proxy 9¢ yecens parameter. 
Add support for 
ding PID of SPI ye ee key in IOSB of DECLSERV Q10 
to NETSERVER process. 


v012 RNGOO12 Rod Gamache 26- ~Jan~ -1983 
Fix bug in NETSDELIVER. CI which doesn't check status 
for success on call to memory allocation routine. 


v011 TMHOO11 Tim Halvorsen 28-Dec-1982 
Add routine to break all links for a given process. 
Do not store NCB, SFI or PNM into SPI until the Link 
is actually given to the process, and not when the 
process is created. 


v010 TMHOO10 Tim Halvorsen 11-Nov-1982 
Fix pup in NETSERVER startup, so that initial connects 
which have been tagged for a certain process do not get 
inadvertantly given to the gnather free server process 
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for which the logical Link was not intended. 


v009 TMHOO09 Tim Halvorsen 09-Jul-1982 
Make it possible for the network channel to be cleaned 
up without any errors. 
Add code to report mailbox messages of MSG$_RESET 
to pe Transport module, so that it can respond to 
X.25 circuit resets during datalink startup. 


v008 TMHOO08 Tim Halvorsen 16-Jun-1982 
Add an entry to the SPI database when creating a network 
ob, and remove it when we get the termination message. 
dd code to transfer connect requests to waiting server 
rocesses, in order to optimize server process creation. 
ix code in process termination to ignore the INHIB_MSG 
bit in the final termination status, when making the 
determination of whether the object procedure exists or not. 
Do not cause a proxy login if the connect format type is 
not a 2. This prevents an 8 byte PID from being sent to 
LOGIN for proxy logins. 


v007 TMHO007 Tim Halvorsen 12-Apr-1982 
Get address of tM | buffer from cell, rather than 
referencing a statically defined location. : 
Modify ACP mailbox dispatching to handle X.25 mailbox 
messages, and nih y tie Macaw . 
Fix a bug in mailbox dispatching, so that if the mailbox 
read is canceled or aborted, then the Q10 is re-issued. 
Make default addressing word relative and remove explicit 
addressing specifiers. 


V03-06 ADE0035 aed) Ag 11-Feb-1982 ‘ 
Move check for specific OBI proxy access state to allow objects 
not in the database and with an object number zero to use the 
proxy access specified for the TASK OBI. 


VO3-05 ADE0034 A.Eldridge 10-Feb-1982 - 
Return error (instead of bug_check) if call to SCREMBX fails. 
V03-04 ADdeE0033 A.Eldridge 18-Jan-1981 


Fix bug in proxy login. If the access control string received 
in the connect message is non-null then don't allow proxy 


Cale ele ele lel ele ole) el ele lolol elelelelolelelololeleleleleleleleleolelelelelelelelelelelelelelelelelelaloleleloloa) 
Pelee le lelelel ole lolol olelel aloe olololelololololelololololeoleolelololeolololeleleolololeleleleleolelololo) 

rele lee leleleleleloleleleleloleleleleleleloleloleleleleleoleloleolelelelelelelolololelelolelelelelelolelolelolo) 

feleleleleleleleleleleleleleleleleloleloleoleloleleleleleleleleleoleoleleoleleleoleolelaleolololo) 

em ee ec ee me em ee ee ee ee ee ed a ed ed ed = od ed = = = = 3 = 2 3 2 3 — 3 3 3 — 2 2) 2) 3 I 
SEN OA AOA AO OO TTT UT BB BBB EB BANANA np nnnonononond = 

DOO NOUS WR 0 OO NO UE WR 0 OONOU EWN 0 OONAU EWN" OOONOAUE WR OVOOnou 
Se Se Ge Ge Be Ge Ge Ge Ge Ge Fe Se Se Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Fe Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Fe Ge Ge Ge Ge Ge Ge Ge Ge Ge 


Login. 
v03-03 ADE0032 A.Eldridge 26-Dec-1981 
Allow maximum task name of 12 characters in NCB. 
v03-02 ADE0031 eg 18-Dec-1981 
Make sure that the NCB, the taskname, the gh name, and 
0 the access control strings passed to LOGINOUT, are properly 
0 8 uppercased. 
0 v03-01 ADE0030 A.Eldridge 30-Nov-1981 
9 8 Added proxy login (access) support. 
000 v03-00 ADE0029 A.Eldridge 01-Nov-1981 
000 General cleanup. 


NE TPROCRE - Process creation 
¥542006 


VO02-17 TMHOO17 Tim Halvorsen 04-Sep- 
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1980 
Accept SYS$NET parameter as input to NETSSTARTUP_oBJ. 


A.Eldridge 01-Jan-1980 
Rewritten for Phase III 
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~SBTTL DECLARATIONS 


: INCLUDE FILES: 


oO 
ro 


0 

4 

5 

6 

? 

8 

9 

0 

4 

5 

6 

7 

8 

9 

? SXWBDEF 
¢ SWQEDEF 
4 SNETSYMDEF 
2 $NETUPDDEF 
7 

8 

9 

0 

4 

5 

6 

7 

8 

9 

0 


> MACROS: 


EQUATED SYMBOLS: 


00000024 
00000008 


CNF = CNFSC_LENGTH ; Short name for readability 
1a3 
1 

1 
1 


STS_M_NOACNT Do not peyote accounting records 
STS_M_NOAUTH use caller's privs/quotas at login 
STS_M_NETLOG bit no. for network login 

MBX_M size of a mailbox message 

MAX_T Max size of taskname -- i ees 


: following teh ‘'="' in the NC 
ASSUME MBX_MSG_LTH GE ACCS$K_TERMLEN 


“MSG_LTH 
ASRNAM 


Q@ 
MONO 


r) 
= 5 
= 1 


0000000C 


OOCOOCOCOOOOCOOOOOOCOOCOOOCOCOOCOOCSOOOOOOCOOCOOOCOOOOOOOOoOO WO 
SOOSCOSCOCOOCOOCOOSOSOOOSOSOSOSOSOSOSOSOOSCOOSOSOSOSOOOSCSOOSOSOSOSOOSOOSOoOO §Fe 
SOOSCSCOCOCOOOOCOOCOCOOOCOSOOSOOSOOCOOOOCOOOOOOOCOOOOOOOoOOoOOoOOoO -H 
SOOCOCOCOCOOSOCOSSSSSSOSOSOSOOSOOCOOOOOCSOOCOOCSOOOOOOOCOSOoOoOoO HK 


POPIPOPYNIPIPDNYNYINDPPSNYAININININININIPONININDY 2 4 OO ss ss Ss sess es es 


00000000 


00000000 
00000000 
00000000 
00000014 
00000000 


00000000 
00000000 


00000000 
00000000 00000000 
00000000 00000000 
00000000 00000000 
00000000 00000000 


00000005 
0000 

00 

00 

00 


00 
00 


cr 
NS 


oO 


OWN STORAGE: 
~-PSECT NET_IMPURE ,WRT,NOEXE,LONG 

-ALIGN LONG 

«LONG 


22222 00 Fee eee SS S$ FF 4 
mMmmmmm 4 mMmMmMmMmmmmn 


NAMES WN OOO NAUE WN OS OO NAMES WN $C OO NAU SW CO OONOAUE WN OOONOu 
mam Sete 
<<a See  -- 


O09 INN NNSA AAA AAA AAO MMMM BB BAIN NINA NIAID 
a} -+ ae +t 


—~ 
—Owoc 


; 
: 
; 
: 
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- LONG 
- LONG 
- LONG 
~BLKA 
- LONG 
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0 


Ooooo0oeoe oo oOo - co Oo oO 


oo OOCO°O 


Fields used for termination mailbox 
careful when modifying since some code assumes data ordering without 
using assumes. 


L 
1 
1 
1 
1 
1 
1 
1 


ONG 


Function to pass to NETDRIVER 


LPD of Line which is starting 
PID to pass to NETDRIVER 


Disconnect reason 

Link number 

For saving address of NCB buffer 
UCB address to pass to NETDRIVER 


; Address of NCB buffer 
; Address of DELIVER_CI scratch buffer 


; Address of create LLI 

; NCB descriptor 

; Process descriptor 

; Name of file to run 

; Descriptor for 3 account 


; strings preceded by flags word 


; Buffer for access control strings 
; for creating detached, privileged 
; processes. It consists of a flags 


ord followed by 3 null counted 


; strings. 


; OBI proxy access state 
; Internal proxy access state, This is 


t to “‘none’’ if any conditions are 


se 
; detected saternal sy (other than the 
; values stored in the 

; which would disallow proxy access 


OBI or NDI) 


creation, message buffering. Be 


Channel number of mailbox — 
Number of reads posted to mailbox 
1/0 status block ’ 

-- status of i/o completio.: 

-- length of operation here 

-- pid of process deleted 
Buffer for mailbox message 

-- message identification 

-- not used 


NE TPROCRE 1 4 7: AX/VMS Macro V04-00 P 
04-000 Breer 18s 02:57:88 ENETACE.ReINEToROCKE.MaR:1 ou 
NCB_DATA: ; On connect initiates 
EEN EXIT_CODE: -BLKL 1 : status of message 
QOOO00F6 -BLKB MBX_MSG_LTH ; Leave room for message 


§ NET$GQ_WQE_MBX:: iT ts pees element 
BLINK 
Length of entry 
Structure type 
Sub-type is ‘MBX 
Retion” routine address 
AST parameter 

In-use’’ flag 


. LONG A 

LONG Soe 

«WORD 

-BYTE NETSC Dh "Woe 
-BYTE WQE$C”SUB_MBX 
ADDRESS MBX ACTION 


LONG 
WOE _MBX_LTH = _-HHETSG0_WOE_MBX 


; Buffer to get mailbox unit number for SCREPRC argument 
QO00011A BBUF : ~BLKL 3 ; Device characteristics 
0000011C MBX_UNIT -BLKW 1 3; Unit number for CREPRC argument 
ENDBUF : ; Truncate the rest ! 
00000130 ZNABUF : .BLKB MAX_TASKNAM+8 ; Buffer for building ZNA 
3; the 8 includes 1 byte for the object 


, number and 7 bytes of slop 


-PSECT NET_PURE ,NOWRT ,NOEXE,LONG 


54 45 4E epttetedh S++ i NET_Q_NETPREFIX:. “rely "NET" Prefix for unnamed tasks 


00005 NET_Q-TASKZNA: . ; Length of TASK ZNA string 
00000013' ADDRESS TASKZNA ; Its pointer 
9° TASKZNA: . i. ie ; Object type 
4B 53 41 54 ASCII ‘TASK ; Object name 
EXIT_BUF : ; Descriptor er channel info 
0000000E -LONG ENDBUF-BBUF ; Length of bu 
0000010€E* -LONG BBUF ; Address of buffer 


NETSGQ_MBX_NAME : : 
-ASCID ‘'NETACPSMBX"' ; Logical name of mailbox 


mnnn on oe oe ee ASSES APA Se NONE COU OOD OT UOD 


=—OOONAUES WN O OODNAUE WN 90 OONOAUMULS WN OO 


50 43 41 54 45 4E 00000028'010E0000" 
58 42 4D 24 


59 53 24 53 59 53 sees hie yt 
4D 45 54 5 


358 NET_Q_SYSTEM: : ; 
-ASCID ‘“'SYSSSYSTEM:"' ; Prefix for reserved objects 


324 NET_Q_IMAGE: 
25 


So 
=] 
S 
oe oe ee oe ee ee oe ee wee ele felololololelololelelelolel alo olololololo lel ole ole omer. ta) 


59 53 24 53 59 53 29090060 °9] 06909 , -ASCID ‘“'SYSSSYSTEM:DCL*' ; Login image 
4C 43 44 3A 4D 45 54 5 5 
3B 326 NET_0_PROC: pe 
59 53 24 53 59 53 te ge 63°010E0000° 5 eASCID ‘“SYSSSYSTEM:NETSERVER’’ ; Network server procedure 
56 52 45 53 54 45 4E 3A 4D 45 23 z? 9 
3 28 X25_DEV_NAME: ; 
41 57 4E 0000007F '010E0000' 444 $0 -ASCID ‘'NWAT ; X.25 device name 
00009088 1 -PSECT NET_CODE,NOWRT,LONG 


Se a aa 
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i ; - SBTTL NETSPROC_XWB - Process returned XWB 
0 5 3 
00 § ; NETDRIVER has passed us an XWB either to be Linked into the LTB and assigned 
00 ; a local logical-Link address (upon receiving an incoming connect) or to be 
8 ; unhooked from the LTB and deallocated. 
000 40 ; If both the XWBSW_REMLNK and XWBSW_LOCLNK fields are zero, then this request 
0000 41 ; comes from the NETACP code which handles the IO$_ACCESS request for Connect 
B66 rt: ; «initiates. 
B88 44 ; NETACP is responsible for the LTB maintenance and the XWB Linkage in order to 
8006 22 3; avoid any race conditions it may have with NETDRIVER while scanning this List 
0000 47 ; 
0000 48 ; INPUTS: R3 YWB pointer 
0000 49 ; 
0000 50 ; OUTPUTS: ALL registers are clobbered 
0000 51 3 
0000 26 = 
0000 $2 « SAVE_PSECT 
00000000 54 -PSECT NET_LOCK_CODE,NOWRT,GBL ; Can't tolerate page faults 
0000 355 -ENABL LSB 
0000 356 
0000 357 NETSPROC_XWB:: ; Process (deallocate) XWB 
5B OO00'CF DO 0000 358 AOVL NETSGL_CNR_LLI,R11 : Pick up LL R 
5A 04 0005 359 CLRL R10 3; No LLI CNF yet 
52 30A3 00 0007 360 MOVL XWBSL_VCB(R3) ,R2 >; Get RCB 
55 ¢ Ag DO O00B 361 MOVL RCB$L_PTR_LTB(R2) ,R5 ; Get LTB 
EA 5 O00F 36 TSTW XWBSW_LOCCNK(R3) : Test local Link number 
03 12 0012 6 BNEQ 2s ; If NEQ, XWB being returned 
0087 31 0014 364 BRW NEW_LINK : If EQL, this is an incoming connect 
a an 
Baie 367 3 Locate and Delete the LLI CNF. Release hold on counter block 
0017 369 : 
58 53 DO 0017 390 MOVL R3,R8 ; Setup XWB address for search 
001A 371 $SEARCH eql LLi,t,xwb : Find the corresponding Lil, if any 
2— 50 €9 a08h e BLBC ~=—-_-«RO,, 10 : If LBC, not found 
3¢ =6 BB_Ss«éO02A 74 PUSHR #*M<R2,R3,R4,R5> 3_ Save tg 
5E 00000064 BF C2 00 ¢ 75 SUBL #100,SP :@Create dummy non-pageable buffer 
36 3E 00 00 ? MOVL = SP,R6 ; Point to dummy buffer 
54 01 00 6 7 MOVL #1,R4 :; Say ‘‘zero XWB counters 
eS 8 039 8 MOVL R3,R5 ; x tr for subr call 
FFCI" 30 003C 37 BSBW NETSFLUSH_LLI_CNT ; Flush LLI and XWB counters to node 
O3F 80 3;_counter block 
5E 00000064 er CO O003F 81 ADDL #100,SP s@Release stack space 
C BA anes 8¢ POPR #*M<R2,R3,R4,R5> ; Restore regs 
38 4 4 4 CLRL R8 3 putt ety pointer 
FFB3* 30 4A 5 BSBW CNFSPUT_FIELD ; Erase the XWB pointer 
FFBO' 4D § BSBW CNFSDELETE ; Mark the entry for deletion 
FFAD' p29 BSBW CNF SPURGE ; Purge the entry from the database 
5A 4 005 HE CLRL R1 :; Forget about the LLI, its gone 
FFA8* 30 0055 9 BSBW NE TSRELEASE_NDCOU ; Release hold on counter block 
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PPMP PPO 
COWS UW 


50 900" st 
4 65 


FD o 
FFFFFFFF 8F 4 
22 


-—omMmow 
m—0o-m 


DOOOOCCOOOCOOCOOCOOOOOOOOOOOOCOoOO wo 


So 
OOS FO WOOWMNOOOL DOF" MOCcomccmoc i 


009 


H 14 
creation 16-SEP-1984 01:27: AX/VMS Macro Vv04-00 Page 
XWB = Process returned XWB ety 7 83:31:98 NETACP.SRCJNETPROCRE .MAR; 1 ° 
9 10$: : 
35 ; This is an old XWB coming back to be removed and deallocated 
94 : 
95 MOVZWL XWBSW_LOCLNK(R3) ,RO : Get Link number 
38 Icw #*C<NETSC ane RO : Clear all but ‘index’ bits 
9 MOVAL LTBSL SLOTS(R )CRO],RO : Get Link slot 
98 CMPL (RO) ,R : Does address match ? 
99 BNEQ ; If NEQ, bug 
ret DSBINT #NETSC_IPL 3 Synchronize with NETORIVER 
i0¢ MOVW #1,¢0R0)+ : Set ‘available’ fla 
40 MOVW XWeSW LOCLNK(R3), (RO) 3; Store last used Link address 
404 MOVAB -=XWBSC_LINK - 3 
405 +LTBSL_XWB(R5),R1 3; Init for scan 
406 20$: MOVL R1,R ; Save a copy 
407 MOVL KWBSL_LINK(RT) RI : Travel List 
408 CMPL R1,R : Is this it ? 
409 BNEQ 208 : If not, branch 
410 MOVL XWBSL_LINK(R3),- ; Remove it from List 
i} XWBSL-LINK(RO) : 
‘i$ ENBINT : Restore IPL 
415 DEAL_XWB: : Deallocate XwB 
416 BSBW NETSDECR_MCOUNT ; Account for Link now gone 
417 MOVL R5,R 3; Get block address for call 
418 BSBW NE TSDEALLOCATE ; Deallocate the block 
7 a 
? 1 200$: BUG_CHECK NETNOSTATE,FATAL ; Else, bad slot address 
4 : -DSABL LSB 
424 
rt 
+38 NEW_LINK: ; Insert new XWB into LTB 
428 : 
638 $ Find a free slot in the Link table (LTB). Start from where we left 
430 2 off last time in order to avoid using the same slots over and over 
431 ; again. This technique increases the interval between re-use of a 
$36 5 lLogical-Link number -- i.e., sequence number, slot number. 
132 : Don't allow either byte of the local Link number to equal ‘'" since 
636 ; pone non-intelligent NCB parsers mistake that for the end of the 
4 : ; 
+38 : The slot vector terminates with a -1 (longword) followed by a 
4 ; 0 (lLongword). 
1) 
age MOVZWL #SS$_CONNECFAIL,RO ; Assume failure 
44 MOVL  LTBSL_SLT_NXT(R5),R4  : Get first slot candidate ptr 
444 5$: BLBC R4)+, ; LBC means unavailable 
445 CMPL -(R4) ,#-1 ; Backup and test for end of 
446 BNEQ 10$ 3; NEQ means slot foun 
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NE TPROCRE - Process creation 16-SEP-1984 01:27: AX/VMS Macro V04-00 Page 
v04-000 NETSPROC_XWB = Process returned XWB tat 1 5:87:98 NETACP.SRCJNETPROCRE .MAR; 1 . 
54 10 A5 OD B 447 MOVAL LTBSL_SLOTS(R5),R4 ; Start from top of vector 
FD Se BS 56 2c8 7$: BLBC Late} 3; LBC means unevel leble 
FFFFFFFF 8F 4 01 B &% CMPL =-(R4) ,#-1 ; Backup and test for end of 
6 13 C 450 BEQL 3; EQL means slot not found 
02 A4 0499 F AO O0C2 451 8S: ADDW #NETSC_MAXLNK+1,2(R4) ; Update local Link seq # 
22. «02 AG 71 0c 12 CMPB (R4) Rea’ : Is low byte a double quote? 
it 434 45 BEQL ; If EQL yes, keep scanning 
22 O38 AG 91 cs 454 CMPB ew. 3: Is nigh byte a double quote ? 
EE 13 00D 455 BEQL $ ; If EQL, bump the seq # and try again 
i an 
ite +28 : Find position in XWB List. At the same time, see if this is a 
D4 45 s duplicate by matching the remote node address (the remote Link 
0004 460 3 number has not been ae yet if this is a Connect Initiate). 
00D4 461 3 If its a duplicate, simply deallocate the XwB. 
00D4 206 3 
tg 46 ; 
50 £0 AS 9E O00D4 464 MOVAB -XWBSL_LINK - ; é 
sit 465 +LTBSL_XWB(R5),RO ; Init for scan 
51. 50 00 O0D8 466 30S: MOVL R 3; Remember last entry 
50 2c AO 00 00DB 467 MOVL § XWBSL_LINK(RO) RO : Go to next entry 
15 13 OODF 468 BEQL 50$ ; If EQL, at end of List 
3A AS B1 O0E1 re 4 CMPW XWBSW_REMNOD(R3) ,- ; Are we going too far ? 
3a AO 00E4 470 XWB$W_REMNOD (RO) : 
0 1A itt 471 BGTRU 50 3; If GTRU yee stop here 
CAS Bl OOE 47g CMPW = KWBSW_REMLNK(R3) ,- : Is this it ? 
C AO QOOEB 47 XWBSW_REMLNK (RO) : 
E9 ig QOED 474 BNEQ 0 ; If NEQ no, continue searching 
3c AS) BS OCOOEF «= 475 TSTW KWBSW_REMLNK(R3) : But, if = then no address has been 
E4 13 OOF2 476 BEQL 3 assigned; comparison was invalid 
9A 11 OOFS4 477 BRB DEAL_XWB 3; «else duplicate connect 
OOF6 478 50$: : 
OOF6 479 3 ; 
OOF6 480 3 LTB slot and place in XWB List have been found. Link XWB into the 
OOF6 481 : LTB and setup local Link number. 
OOF6 ret} 3 
OOF6 48 ; 
pore rtf DSBINT #NETSC_IPL : Synch with NETDRIVER 
04 AA OQOOFC 486 BICW #XWBSM_STS_SOL,- : 
Oe A3 +43 re 14 XWBSW_STSTR3) 3 No Longer queued 
3E AS 02 AS BO 010 488 MOVW 2(R4) ,XWBSW_LOCLNK(R3) ; Setup local Link number 
84 O53 b9 0105 489 MOVL R3,(R4)+ ; Store XWB ptr in this slot 
65 23 D 13 490 MOVL R4,LTBSL_SLT_NXT(R5) 3; Store scan’s next starting pt. 
2c A3 g D0 (01 491 MOVL At ee ed 3 Link tail of list to current XwB 
ec Al 5 dO + 136 MOVL R35, XWBSL_LINK(R1) ; Link XWB to head of List 
O13 re ENBINT 3; Restore IPL 
FEE7" 30 118 $36 BSBW CREATE_LLI ; Create LL! and insert it into database 
11 49 ; Use status as input to NETSDELIVER_Cl 
3 ASB 119 o28 TSTW XWBSW_REMLNK(R3) ; Connect Initiate ? 
99 1 11¢ 3=— 49 BEQL 100$ ; If EQL yes, return RO to caller 
56 3 4 1 0 MOVL R5,R6 ; Else, copy XWB address 
0288" 1 1 BSBW NE TSDELIVER_CI ; Create L t. and deliver connect 
124 § : notification to some server 
50 01 00 0124 MOVL #1,R0 3 Say ‘success’ 
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NE TPROCRE - Process creation 16-SEP-1984 01:27: AX/VMS Macro V04-00 Pa 11 
v04-000 NETSPROC_XWB = Process returned XwB eae 3:54:88 NETACP.SRCJNETPROCRE .MAR; 1 ” (4) 
05 } 7 : 100$: RSB ; Done 
! § § 200$: BUG_CHECK NETNOSTATE,FATAL 
0000 : 5 -RESTORE_PSECT 
10 
009 \} CREATE ULI: ; Create LLI and insert it into the List 
$009 18 : This subroutine in required so that the ‘‘utility buffer’’ acquired 
2000 1 ; by the NETSGETUTLBUF co-routine will be released in a timely manner. 
$00 1§ : NOTE = the NETSACQUIRE_NDCOU routine needs the utility buffer, so 
0000 é| ; we must not allocate the utility buffer until after we acquire the 
i464 18 ; NDC counter block. 
FFFD* 30 0000 : 0 6sBw NETSACQUIRE_NDCOU ; Inc. reference level of counter block 
40 50 9 000 521 BLBC ; If LBC, problem encountered 
FFF7" 30 0006 § : BSBW NETS$GETUTLBUF ; Get permission to use utility buffer 
0009 5 3 > the above is a co-routine call 
58 O000'CF 0 Bobe 524 MOVL NETSGL_CNR_LLI,R11 ; Pick up CNR 
FFEF* 30 OO0E 525 BSBW CNFSINTT_UTL ; Init “utility buffer’ as a CNF 
- oe) oo eh § MOVL 3,R8 : Get X 
0014 3 f SPUTFLD LLi,L,xwb : ...Store it in LLI 
007c 8F BB OO1F 529 PUSHR #*M<R2,R3,R4,R5,R6> > Save registers 
56 2C AA YE 00 ; 530 MOVA CNF+LLi$Z NDC RT(R10) RO: Point to ‘running total’ counters 
66 1C 00 6€ 00 2c 00 531 MOVC 0,(SP) ,#0,#NBC$C_LENGTH,(R6) ; Zero the counters 
56 48 AA SE 002d 338 MOVAB CNF+LLI$Z_NDC_LZ(R10),R6: Point to ‘last zeroed’ counters 
66 1C 00 6€ 90 ef boss 237 seh #0, (SP) .A#0.ANDC C_LENGTH, (R6),,; Zero the counters 
3: No “‘o 
FFC4" 30 0039 535 BSBW CNFSINSERT ; Try to put block into List 
007C 8F BA a94¢ 238 POPR #*M<R2,R3,R4,R5,R6> ; Restore registers 
08 50 8 o¢9 aH BLBS RO,100$ : If LBS, okay 
FFBA‘ 50 004 539 BSBW NETSRELEASE_NDCOU ; Else, dec. reference to counter block 
50 0000'8F C 0046 540 90$: MOVZWL #SS$_CONNECFAIL,RO ; Return general purpose error status 
05 Ober et) 100$: $B ; Release utility buffer, return status 
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NE TPROCRE - Process creation 16-SEP-1984 01:27: AX/VMS o V04-00 Page 1 
Wo 000 NETSCREATE_MBX = Create ACP mailbox g-SEF- 1382 83 $f - ENETACE ACP.S SNETP ROCRE.MAR; 1 . (8) 
4C 44 .SBTTL NETSCREATE_MBX = Create ACP mailbox 
Ge Sh SHE AEtaauatole® > BSSSSAA%fuar a 
te 73 $8 - Issue mailbox rea 
4C ‘8 3 
4C 49 ; 
rt: 29 3 eee TBS eee 
4¢ 5 == 
ast 26 NETSCREATE_MBX:: 
OO4E'CF B4 004 54 CLRwW MBX_RDCNT : Init oustanding mailbox read count 
82 2? $CR ae * mex_CHAN, : Create mailbox 
05 3 MAXMSG = #MBR_MSG_L 
Bo 2 28 BUFQUO = ocmet msCe UFae16>, - ; 
05 5 LOGNAM = NETSGO_MBR_NAME,- ; mailbox's Logical name 
bot 560 PROMSK = #0 
16 50 €9 0071 561 BLBC RO, : Br ife 
0074 266 $GETCHN : Get ant ibex unit number 
bor, Sea CHAR = EXIT BUF 
= 
05 dO if 10$: $B ; Return status in RO 
0088 67 
088 68 
0088 386 NETSKILL MBX: ; Delete channel to mailbox 
008s ef SDASSN, S$ CHAN = MBX_CHAN ; do it 
05 009 71 
0098 278 
0098 57 
9 are N NETSMBX_QI0:: 3 Post read to mailbox 
009 278 : 5 
009 57 : This routine puts a read out on the mailbox for process termination and 
93 aoe : : inbound connect notifications. 
098 580 : 
$09 ag $Q10_S CHAN = CHAN,- 
009 38¢ FUNC = S‘#TO$_READVBLK,- 
009 EFN = WNETSC_EFN_ASYN,- 
009 4 ASTADR = NETSSET_MBR 7 
009 5 I0SB = MBX_I0S6,- 
84 § = EXIT_MSG,- 
6? <¥ = #MBX ~MSG LTH 
04 50 €8 C1 8 BLBS RO,10$ ; Br unless error 
00C4 9 ate CHECK ACPMBFAIL,FATAL : ‘arrgh 
05 00C8 590 10$: RSB™ : return 
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NE TPROCRE - Process creation EP-1984 7: AX/VM cro V04-00 P 
v04-000 NETSSET_MBX_AST = Process mailbox AST Basset 63: 34 93 NETACP.S REIN NE TPROCRE .MAR; 1 
08 -SBTTL NETSSET_MBX_AST = Process mailbox AST 
3 94; 
C9 95 a 
C9 3S 3° 
C9 9 NETSSET _MBX_AST:; 
003¢ 434 38 .WORD “M<R2,R3,R4,R5> 
50 oor¢" CF 4 OCB 600 MOVAB NET$GQ_WQE_MBX,RO ; Get base of mailbox WQeE 
14 a0 0D 0D 601 TSTL WOESL_PmM2(RO) 3 Is it active 
0D is D 6 ¢ BNEQ 10$ 3 1% NEO then erttes, there's a bug 
10 A0 O4 AC OD D 6 MOVL ay A woes ae Lae ; Get the AST parameter 
14 a0 01 ce DA 604 MNEGL WOesL : Mark WQE bus 
FIF" OODE 605 BSBW oaéti $ Queue the wa 
04 BES on6 ET 3; Done 
doe2 608 10$: BUG_CHECK NETNOSTATE,FATAL :; Signal the bug 
Goes 610 MBX_ACTION: ; Enter eee ve WQE dispatch 
14 A5 D4 OOE6 611 CLRL WOQESL_PM2(R5) 3 Mark 
EE‘AF 00 FB OQOE9 $16 CALLS #0,B*°NETSMBX_AST ; Call the ja | processor 
05 OOED 61 RSB 
QOEE 614 i+ 
QOEE 615 : 
QOEE 616 : NETSMBX_AST - Hal Ny ROUTINE SERVICES PROCESS TERMINATIONS 
QOEE 617 : D INBOUND CONNECT NOTIFICATIONS 
OOEE 618 z 
QOEE 619 ;- 
0000 it 3 620 NETSMBX Ad -WORD 0 3; Entry point 
00° OOSO'CF 681 OOF 621 “CMP MBX_IOSB,S*#SS$_ABORT ; Was the i/o cancelled? 
OE 13 OOFS 6 § BEOL 5$ : If s0, assume mailbox going away 
0000 * 8F 0050°CF B1 OOF? 6 CMPW MBX_IOSB,#SS$_CANCEL : Try this code, too 
05 13 OOFE 624 BEQL 5$ : If NEQ proceed 
04 10 Ht 625 BSBB 10$ 3; Dispatc 
FF93 = 30 ie 6 § BSBW NETSMBX_QI10 ; Put et another read 
04 010 627 5$: RET : Don 
0106 628 3 
Oioe ° 4 ; Dispatch 
50 QO054°CF 00 0106 631 10$: MOVL PID,RO ; Get EPID returned by MBX driver 
00000000'GF 16 010 63¢ JSB GERESEPID. TO_IPID : Convert to internal P 
0054°CF 50 00 0111 o3 MOVL RO,MBX_PID™ ; Use the IPID for later process ing 
56 OOO0'CF DO 0116 634 MOVL  NETSGL~NET_UCB,R6 : Point to our NET channe 
58 g056°Cr 43 11 635 MOVAB exH 15,R1T 3; Get address of mbx message 
6 BO 01 6 6 MOVW = (R11 4+, R6 : Get message type 
4 oe +4 1 6 OVW (R11)4#,R9 ; Get unit number 
A A 0126 $38 pitt (R11)+,R10 : Get device name count value 
00 68 5A 2D 0129 639 PC R10, (R11) #0 #0, ais X.25 mailbox message? 
007B'DF  0077°CF 1 640 X32 DEV_NAME ,aX25_DEV_NAM ME + wi 
70 «3613 «(01 641 eee. ‘ s” ; Branch if so inte 
5B SA CO Q1 e4§ R10,R11 : Get pointer to mbx ‘‘data 
8 643 SDISPATCH fYPE=W,R6,- : Dispatch on mailbox msg type 
1 645 < cuss sites t DELPROC>. ~ : Process hora tngt ten 
1 666 <MSG$-CONNECT, CONNECT> : Inbound conne 
647 r <MSG$ ~PRINLOSE, NETSDRV_ CANCEL>,-: 1/0 chanr.al or eathat 
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eation 19n36 ath 9 8 
AST = Process mailbox AST 

$8 RSB 

: Dispatch on X.25 mailbox message 
654 20$:  MOVAB  EXIT_1D+20,R11 

655 MOVZWL MBX_CEN,R10 

696 UBL 

697 SDISPATCH fYPE=W,R6,- 

659 < cuss _CONNECT, NETSDLL_X 

660 : <MSGS-RESET, | NETSDLL~ . 5-R 
662 RSB 


sgt $3 ayes Macro v04-00 
NETACP.SRCJNETPROCRE .MAR; hy 


:; Ignore the message 


; Point to ‘‘data’’ 

; Get length of mailbox message 
; Subtract out overhead 

; Dispatch on mailbox msg type 


CALL> 3 Incoming X.25 call 
ESE ETS, eg x95 cireult reset 


; Ignore the message 
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TPROCRE - Process creation EP-19 7: AX/VMS Macro V04-00 Page 1 
yO4-000 NETSSET_MBX_AST = Process mailbox AST ~$Fb=1 384 83: $i 93 NETACP.S RCINE TPROCRE .MAR; 1 ( 
107 rt: 3 
44 eg 3; Connect initiate message received 
1D? 667: 
107 208 3 The mailbox data consists of the address of the NETDRIVER update 
144 676 ; routine and the address of the XwB. 
107 671 CONNECT: 
56 04 AB +) 107 ore MOVL 4(R11),R6 ; Get XWB addre 
50 01 1DB 67 MOVL #1,R ; meuccess™ flee to NETSDELIVER_CI 
O1FB 2 105 674 ase NETSDELIVER_C1 ; Deliver the inbound connect to a user 
1E 675 RSB 
1E of8 
1E 677 ; 
1E 978 3 Handle network process termination 
1E of : 
iE 80 DELPROC: 
1E 681 3 
BIE ? ¢ 3 Notify netdriver of process exit 
52 04 oD0 OIE 684 MOVL #NETSC_DR_NOBJ,R ; Assume can't find .com file 
Q1E 685 CLRBIT #STS$V-INAIB sgh? EXIT_CODE : Ignore [NIG MSG flag 
OOSC'CF Q0000000'8F D1 O1EB ons CMPL #RMSS_PNF EXIT_ CODE ; fi le-not-found? 
11 13 O1F4 386 BEQL ; if EQL yes 
52 Hs dO pies 688 MOVL #NETSC_DR_EXIT,R2 : othe! ust an exit 
OOSC'CF QO0000000"SF D1 OTF 689 CMPL #LGI$_INVPwD, EXIT_ CODE ; was it an access problem? 
03 is 0202 690 BNEQ $ ; a = me no 
52 22 DO 0204 691 MOVL #NETSC_DR_ACCESS,R2 : 5th So 
51 0054'CF ° 0207 692 35$: MOVL MBX 3; PID of exiting rocess 
005E 0 8 +5 oo7 BSBW NETSSERVER. FAIL 3; Notify NETSERVER server gone 
oF $32 3 Remove the process from the SPI database 
5B OO000°CF 00 OF 697 MOVL NETSGL_CNR_SPI,R11 ; Get root of SPI database 
A D4 14 698 CLRL R10 ; Start at beginning of List 
58 0054°CF 00 16 99 MOVL MBX_PID,R8 3; Get process Pl 
0 18 69 SSEARCH egl,spi,l.pid 3 Find Got qbone entry 
18 50 €9 022 701 L : Branch if not found 
0228 £08 SGETFLD spi,l,irp : Waiting DECL SERV IRP? 
04 50 €9 3 4 L P :; Branch if no IRP waiting 
704 BUG_CHECK NETNOSTATE FATAL ; Should never have IRP 
D 705 ; waiting, if process deleted 
FDCO’ 3 D 706 40$: BSBW CNFSDELETE 3 Mark the CNF entry deleted 
FDBD' 30 : 4 , 50s BSBW CNF S$PURGE : Delete all marked CNFs 
r 44 : Notify DLE module of process termination. 
58 0054°CF 00 6 430711 MOVL MBX_PID,R8 ; Setup the PID 
FDBS* 30 48 ay BSBW DLESPRC. WEXIT : Inform DLE of process exit 
05 0248 71 RSB 
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-SBTTL NETSCONNECT_FAIL = Notify NETDRIVER of failed Link 
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An attempt to confirm a Bp bee link has failed. Notify NETDRIVER so that 
it can ag FA the user's access to the Link and then notify the remote end of 
the Link that the Link ‘s being broken and why. 


INPUTS: Local logical Link number (0 implies connect initiate) 


R3 
R2 Reason code to be sent in the disconnect message 
R1 User's PID 
OUTPUTS: R5-RO Clobbered 


ALL other registers are preserved 


mi 


NETSCONNECT FALL: 
MOVZWL 
BEQL 0 
MOVL R2, Net. -L REASON 
MOVL R1 


“L~PID 
MOVL ine TOPOS “ABORT ,NET_L_FCT 
BSBW SS sTELL_ 


A connect attempt has failed 
Use the ACP's UCB 

Specify ty number 

If EQL then connect initiate 
Specify disconnect reason 
Specify user’ s PID 

Specify “‘Link terminated" 
Notify NETDRIVER 


Q0014°CF 0000° 


CF N TSGL NET _UCB,NET_L_UCB 
000C'CF 23 oe: L_LAK 
O008'CF 52 

51 

01 

7F 


0004 'CF 
0000'CF 
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19360-1382 61 gt 93 pAaeyes Macro V04-00 Page 
- Notify NETDRIVER of te SEP=1984 02: NETACP.SRCIJNETPROCRE .MAR; 1 


we NETSSERVER_FAIL = Notify NETDRIVER of terminated server 
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A server process (or NETSERVER session) hes yy Notify NETDRIVER so 
that it can break all Links that might sti My doy for that process. 
0 handles the case where the process aa a to confirm the Link due 

© some error. 


INPUTS: R2 Reason code to be sent in the disconnect message 
R1 User's PID 

; OUTPUTS: R5-RO Clobbered 
ALL other registers are preserved 


Sete Ge Ge Ge Ge Se Se Ge Se Sse Se Se teste tse 


NET SSERVER fone ; A server pet terminated 
MOUL : gNET_L_uCB Use the ACP's UCB 
Specify disconnect reason 
specie user’ s PID 
city ‘ process exit’’ 
Notity NETDRIVER 


oNET_L_FCT 
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NE TPROCRE - Process creation 16-SEP-1984 01:67:98 pares Macro V04-00 Page 18 | 
v04-000 NETSSCAN_FOR_ZNA = Send pending connects 5=-SEP=1984 02:21:53 (CNETACP.SRCIJNETPROCRE.MAR; 1 (10) | 
788 » SBTTL NETSSCAN_FOR_ZNA = Send pending connects to declared object | 
7 769; | 
7 16 ; This routine is called when a task name or object is declared by a user. 
7 771 ; The function is to scan the XWB list for Links in the Connect Initiate 
8 7 ure ; State which are intended for the object with the specified ZNA and to build 
ia which is given to to be put in the declared name's mailbox. 
9 7 as NCB which i j NETDRIVER b j he decl d , ilb 
8 Bf whe : INPUTS: R7,R8 = Descriptor of object ZNA being declared 
0287 $8 3; OUTPUTS: None 
0587 979: 
44 780 NETSSCAN_FOR_ZNA:: ; Find unclaimed XWBs which match ZNA 
59 57 7D 0287 781 Rova ey 3; Make copy of ZNA descriptor 
56 O000'CF 00 OoA 18¢ MOVL §§NETS$GL_PTR_VCB,R6 : Get RCB pointer 
56 24 A6 00 8F 78 MOV RCBSL_ CTB(R6) ,R6 ; Get LTB pointer 
55 14 A6 4 0293 784 MOVAB LTBSL_SLOTS+4(R6) ,R5S ; Point to first XWB (skip slot 0) 
FD 85 CE S944 785 10$: BLBS (R5)+,10$ : If LBS then pointer is invalid 
56 FC AS DO 029A 786 MOVL  =4(R5S,R6 : Get the XWB address 
29 «13 «(029E 86787 BEQL 30$ ; If EQL then done 
03 91 Q2A0 788 CMPB #XWBSC_STA_CIR,- : In connect initiate state? 
1E Ab O2A2 789 XWB$B_STA(R6) ; 
Fl 12 Q2A&4 790 BNEQ ; If NEQ then keep jook ing 
51 OOAS C6 YE O02A6 a4 MOVAB XWBST_LPRNAM(R6),R1 3; Setup for subroutine call 
0660 8F BB O2AB 7 ; PUSHR #*M<R5,R6,R9,R10> ; Save important regs 
QOSF1 30 Q2AF 79 BSBW GET_PR_ZNA ; Get ZNA string from LRPNAM — 
0—E 50 £9 O2B2 794 BLBC RO,208 ; If LBC then field is not valid 
6A 59 00 68 57 2D 0285 795 CMPCS R7, (RB) ,#0,R9, (R10) : 
06 12 02BB 796 BNEQ 208 : If NEQ keep Look ing 
50. 01) «=O 602BD 6797 MOVL #1,R0 ; “'Success'’ flag to NETSDELIVER CI 
0119 30 O02CO0 798 BSBW NETSDELIVER_CI ; Build NCB, pass to user in mailbox 
0660 8F BA 02C3 799 20$: POPR #*M<R5,R6,R9,R10> ; Restore regs 
CE 11 O2C7 800 BRB 10$ ; Keep looking 
05 02C9 801 30$: RSB 3; Done 
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us ROE RE = Process creation 195 E 138% 01:67:69 AX/VMS Macro v04-00 Page 
v04-000 NETSRESEND_SERVER = Re-send initial conn 5=-SEP-1984 02:21:53 CNETACP.SRCINETPROCRE.MAR; 1 
‘A Be » SBTTL NETSRESEND_SERVER = Re-send initial connect to server 
CA 5: 
CA § 3; This hy dane dl is called when a server process declares that it is waiting 
CA 5° : for an incomi ng ic connect. The XWB List is scanned for Links in the Cl 
CA 08 ; gee gh 0 ran if the initial connect which started the process 
O2CA 809 ; is still pending. so, then re-send the NCB to the server process 
8 GA B19 : 3 so that it will be MON 
O2CA gig : ; INPUTS: R8 = PID of server process 
O2CA 1 : 
CA 14 : OUTPUTS: None 
cA Be ie 
O2CA 19 NETSRESEND SERVER:: ; Find unclaimed XWBs for server process 
56 Q000'CF DO pgca 818 MOUL NETSGL 4 VCB,R6 ; Get RCB pointer 
56 24 AG «00 «(OSCE 19 MOVL RCBSL_PTR_CTB(R6).R6 =: Get LTB pointer 
55 1406 YE 0203 820 MOVAB Crest - LOTseacR6), R5 ; Point to first XWB (skip slot 0) 
FD 85 §6©€8 0207 gs) 10$: BLBS (R5)+710$ : If LBS then pointe is invalid 
56 FC AS DO ODA 8 : MOVL  =-4(R55,R6 : Get the XwB addres. 
1¢ 13 QO2DE 8 BEQL 30$ : If EQL then don 
03 91 O2E0 Hy 4 CMPB #XWBSC_STA_CIR 3; In connect initiate state? 
1E A6 02E2 5 XWBSB_STACRG) : 
Fl 12 OQ2E4 ag8 BNEQ ; If NEQ then keep looking 
34 A6 «658 «602+ «O02E6— B27 CMPL R8 ,XWBSL_PID(R6) : Intended for this process? 
ce 12 QO2EA 828 BNEQ : If NEQ keep looking 
0160 8F BB O2EC 4 PUSHR #*M<R5,R6,R8> ; Save registers 
0 O01 00 O2FO 830 MOVL #1, 3 aniisees, flag to NETSDELIVER_CI 
00E6 30 O2F3 831 BSBW me ieee iver CI ; Build NCB, satisfy DECLSERV request 
0160 8F BA O2F6 o3¢ POPR #°M<RS, §> ; Restore registers 
DB 11 O2FA 83 BRB 10$ ; Keep looking 
05 O2FC 834 30$: RSB ; Done 
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up-Line dumping. 
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NETSSTARTUP_OBJ_NAM: 
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NETSSTARTUP OBJ: 
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16-SEP-1984 01:27: 
- Startup privileged ett 5:54:98 
TL NETSSTARTUP_OBJ - Star 
TL NETSSTARTUP_OBJ_NAM = Star 


Startup a a gg object process if it is not areery ag yb 
V ne loading 


Inputs: 


for event logging and NML for down-L 


AX/VMS Bacco v04-00 
NETACP.SRCJNETPROCRE.MAR; 1 


tup privileged process 
tup process by name 


This is 
or 


Descriptor of string to be passed as SYS$NET to process 
Descriptor of string to be used as process name 


If =0 then use the object's name as the process name 


Outputs: 


Save registers 

Point to OBI database ; 
and start at beginning of list 
Search for specified object 
Join common code 


; Startup privileged process 

; Save registers 

; Point to OBI database : 

; and start at beginning of List 


Search for specified object 


; Clear PID 


Re = Object number to start (If NETSSTARTUP_OBJ) 
R7/RB = Object name to start (If NETSSTARTUP_OBJ_NAM) 
R2,R3 = 
R4,R5 = 
Ri PID if process has been created 
RO Status 
~ENABL LSB 
“#°M<R7,RB,RI,R10,R11>_—; 
MOVL NETS$GL_CNR_OBI,R11 : 
CLRL R10 : 
SSEARCH og: 001. nam : 
BRB 1 3 
US #°M<R7,RB8,RI,R10,R11>—: 
MOVL NETSGL_CNR_OBI,R{1 ; 
SSEARCH eql,obi,l,num : 
CLRL R : 
MOVO R2,NET_Q_NCB ; 
BLBC RO,2$ : 


: If object has already declared 


$GETFLD obi,l,ucb : 
BLBS  R0,2$ : 
: If not, get the access control 
$GETFLD obi s,sfi 
BLBS RO, 5$ 


BRW 80$ ; 
MOVQ  R7,NET_Q_TSK : 
MOVA 4 NET~Q"PRC ; 
BNEQ  10$ ; 
SGETFLD obi,s,nam : 

VQ ——-R7, NET_Q_PRC : 
MOVL  #DET C"ACC.NET.Q_ ACC: 
MOVAB DET_ABTACC;NET"Q"ACC+4 : 


; Store descriptor of SYSS$NET string 
; Skip if not defined as object 


itself, then it is running 


If UCB NE 0, it has declared itself 
If declared, then its already running 


string and process name 


; Get the process file name 
; Skip if specified 

; Return with status in RO 
; Save the descriptor 

; ge gt me name 


If NEQ then name is non-null 


; Else get object name 

; Use as process name 

; Setup descriptor of access control 
; data used for create detached, 
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- Process creation 197360=1 388 Oh:67 398 AX/VMS Macro v04-00 Page ¢) 
NETSSTARTUP_OBJ_NAM = Startup process by 5=SEP-1984 02:21: NETACP.SRCJNETPROCRE .MAR; 1 (12) 
0 3 ; privileged processes. 
32 ; Start the process with privileges 
0 si SCREPRC_S . ; create a process 
8 98 INPOT = NET_Q_TSK,= ; Network .COM filename 
99 OUTPUT = NET_Q_ACC,- ; Network access control string 
00 RROR = NET_Q_NCB,- ; SYSSNET logical name string 
901 PRCNAM = NET_Q_PRC,- ; Process name 
80 06 AGE = NET"Q"IMAGE,- ; Image (LOGINOUT) to run first 
0380 90 PIDADR = NET_L PID,- ; Place to store process id 
83 8 904 MBXUNT = MBX_URIT,=- ; MBX for termination 
905 BASPRI = G*SYSS$GB_DEFPRI,- ; Prior i 
0380 906 UIC = #<*018167°04>,- 3; UIC is [1,4] 
0380 907 STSFLG = <#STS_M_NETLOG!= : Network login parameters (1N,OUT,ERR) 
tt 908 STS_M_NOAUTH!= ; Use caller’s privs/quotas/etc. 
0380 909 STS_M_NOACNT> ; Do not add any accounting records 
18 50 «6©€9 #O38C 910 BLBC RO,80$ : If LBC then failed 
50 0004'CF DO O3BF 911 MOVL NET _L_PID,RO ; Get the EPID returned by CREPRC 
Q0000000'GF 16 03C4 316 JSB G*ERESEPID TO_IPID ; Convert to internal PID format 
Q0004'CF 50 D0 QO3SCA 91 MOVL RO,NET_L_ PTD ; Use internal format of PID 
51 0006°CF DO O3CF 914 MOVL NET_L_PIB,R1 ; Return the PID to caller 
50. 600" 00 0304 915 MOVL S“#5S$_NORMAL ,RO 3 Success ; 
OF80 8F BA O3D7 916 80S: POPR #°M<R7,R8,R9,R10,R11> ; Restore registers 
05 0308 917 RSB 
O30C 4=—918 
O3pC = 919 -DSABL LSB 
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ion 16-SEP-1984 01:27: AX/VMS Macro V04-00 Pa 
- Process and Deliver Inb 5=-SEP-1984 8:31:83 NETACP.SRCIJNETPROCRE .MAR; 1 - (9 


»SBTTL NETSDELIVER_CI = Process and Deliver Inbound Connect 


A non-zero destination object number indicates that NETACP Buss fetch the 
name of the .COM file from the OBJ block = using ‘'SYS$SYSROOT:CSYSEXE]' as 
the default directory. A zero destination object number indicates that the 
-COM file name is the same as the destination taskname - the default login 
directory account is assumed to contain the taskname.COM. 


\update this to include tasks with a file i.d.\;! 

ound access control for the specified object (or task) are used (these 
} 
| 


strings may also be null). This allows a DECnet-VAX node to serve as a 
convenient host particularly for RSX-11S. 


Caen incoming USER,PSW,ACCT strings are bie null, then the default 


This routines determines whether the connect is to be handed to a task 
which has declared a name or an object type. 


INPUTS: 11 LLI CNR address (if low bit set in RO) 
10 LLI CNF address (if low bit set in RO) 
6 XWB address 
0 Low bit set => deliver connect notification 
Low bit clear => tell — that resource error 
occurre 


OUTPUTS: R11,R10,R6 are preserved. 
ALL other registers are clobbered. 


SIDE EFFECTS: Process created if needed, image started 


: Define scratch storage 


ACC = 12 ; Composite access strings 
PRC = 200 ; Process name 
SK = ; Image to run 


TSK = 300 
CONN_SPACE = 1000 


NETSDELIVER CI: 
CLRC PTR_NCB_BUF 
CLRL §PTR-CON-BUF 


Size of scratch storage 


No NCB buffer yet 


3; No scratch buffer yet 
: Initialize parameters for call to NETDRIVER 


MOVZWL XWBSW_LOCLNK(R6) ,NET_L_LNK ; Setup logical Link address 
MOVZBL #NETUPDS » NET_L-FCT ; Assume process couldn't start 
OVL NETSGL_NET_UCB, NET-L-UCB ; Default is our UC 

MOVL R10, NET_A_LLI ; Save LLI pointer 

CLRL NET_L_PID ; No PID yet 

CLRL NET_A_NCB ; No NCB yet 


wo Hy 
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NE TPROCRE - Process creation 1 mets Oh g7 98 AX/VMS Macro V04-00 Page $3 
v04-000 NETSDELIVER_CI = Process and Deliver Inb 5=-SEP-1984 02:21: NETACP.SRCJNETPROCRE .MAR; 1 (13) 
4 97 : 
5750 £9 ite 1 B.ec —_- RO, 38 : If LBC resource error encountered 
3 caller 
51 O3€8 8F 7 406 3 j MOVZWL #CONN_SPACE,R1 : Set size of scratch buffer 
FBF2' 30 408 984 BSBW NETSACLOCATE : Allocate a scratch buffer 
4¢ 50 € re 4 5 BLBC RO,3$ ; Br if allocation failure, notify 
: driver 
OOIC'CF 52 00 rh 2 ? MOVL R2,PTR_CON_BUF ; Save address for deatlocation 
ti8 3 , : Initialize descriptors and data for process creation 
53 OCA 3 416 991 MOVAB ACC(R2),R3 ; Get ACC address 
0040'cF 53 DO O41A 93¢ MOVL R3,NET_G_ACC+4 : Store it 
ggsc' ce 5 CE O41F 99 MNEGL NET Q ACC : Bias ACC size 
53. 00C8 ce 9E 0424 99% MOVAB PRC(R2T,R3 : Get PRC address 
O030'CF 53 00 0429 995 OVL 3-NET_G_pRC+4 : Store it 
gyee et 53 CE 04 4 996 MNEGL »NET_Q- PRC : Bias PRC size 
5 012C ge 9E 04 997 MOVAB Le (he? R3 3; Get TSK address 
0038'CF 53 00 0438 998 MOVL  R3,NET_Q_TSK+4 : Store it 
OO34'CF 53 CE btz5 1006 MNEGL R3,NET_Q_TSK ; Bias TSK size 
0442 1001 : Set default values 
044 108 4 
5 00'CF DO 044 100 MOVL NETS$GL_PTR_VCB,RO ; Point to RCB 
0049°CF 67 AO 90 0447 1004 MOVB RCB$B_ECL_BPXx(RO) ,0B1_B_PRX ; Set default OBI proxy access 
OO4A'CF 03 90 0440 1005 MOVB #NMASC_ACES_BOTH, INT_B_PRX ; Set default internal proxy 
bee 1309 3 access state 
Bee 43 : Allocate scratch buffer from nonpaged pool for NCB 
51 0078 8F 3C 0452 1010 MOVZWL #NETSC_MAX_NCB+13,R1 ; Length of buffer for an NCB 
FBA6" 30 0457 1011 BSBW NE TSALONPAGED : Allocate the buffer 
17 50 ~=«2«€€8 Been a BLBS RO,5$ : If LBS then block allocated 
8338 ite : Tell NETDRIVER about resource error 
OO0O8'CF O01 QA beep 1016 3$: MOVZBL #NETS$C_DR_RSU,NET_L_REASON ; Reason is ‘’resource error'’ 
50 O000°CF D0 0462 1017 MOVL NETSGL~PTR_VCB,RO : Get RCB pointer 
B68 1018 BUMP id RCBS@_CNT_XE (RO) ; Account for resource error 
34 «11 O47¢ 1019 BRB 16$ : Continue 
B44 t 1 : Build the NCB and locate the process to accept it 
sad | tad 36 DO 0474 1 § 5$: MOVL Re PIRNCB_BUF ; Save for deallocation 
53 OD A2 «GE «(0479 «1024 MOVAB 13(R2)7R : Get address of string, leave 
47D 1025 : room for count and buf header 
0028'CF 3 p00 0470 1 § MOVL RY -NET_O_NCBO4 3; Store it 
0024'CF 3 gf 4 $ 1 MNEGL R35,NET Q NCB : Bias NCB size 
0 2 487 1 : BSBW =» BUILD_ACB : Build the NCB 
1B 5 E9 O48A 1 BLBC R : If LBC then error 
O000006E 8F 0024°CF 1 4 p : CMPL NEf_Q_NCB,#NETSC_MAX_NCB : Make sure we didn't write 
3 past end of bu 
496 1 § ASSUME NETSC_MAX_NCB LE 255 3; Must allow counted string fmt 
30 poe ce be 496 1 MOVL T_Q"NCBF4 + ; Get ptr to NCB 
0 0024°CF 498 1034 MOVE = NET~Q"NCB,-(RO) : Enter count field and 


CE peotge goa conan weed 
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N JPROERE - Process creation 1 ~S60=1 38% 01:37:99 yAreyes Macro V04-00 Page 2 
v04-00 NETSDELIVER_CI = Process and Deliver Inb 5-SEP-1984 02:21: NETACP.SRCIJNETPROCRE .MAR; 1 (13) 
OO10'CF 50 DO Q4A0 1035 MOVL RO,NET_A_NCB ; save its address in case NCB 
4AS5 1 § 3; is to be passed to NETDRIVER 
4A5 1 : for a declared name 
00B2 30 Q4A5 1 3 BSBw GET_PROC ; Find/create process to 
4A8 1 3; receive the connect 
rs 30 Q4A8 1040 10$ BSBW ; Tell driver about connect 
50 0018'CF B AB 1041 MOVL PTR_ACB_BUF RO 3; Address of buffer 
FBGD' 480 1 46 BSBW NETSDEACLOCAT : Deallocate the buffer 
50 OOIC'CF y 483 104 MOVL PTR_CON_BUF ,R ; Address of scratch buffer 
FBGS' 4BB 1044 BSBW NETSDEACLOCATE ; Deallocate scratch storage 
0 ine ! t2 RSB 3; Done 


Nan 


—— 


NE TPROCRE - Process creation 16-SEP-1984 01:27: AX/VMS Macro Vv04-00 Page 25 
v04-000 BUILD_NCB - Build NCB for incoming conne 3 b= 138 $3 :54:9% ENETACP. SREINETPROCRE MAR: 1 fay 
48C 1 rf -SBTTL BUILD_NCB - Build NCB for incoming connect 
“Be 1080 5 
48C 1 Hi 3; This routine builds the NCB tl for the connect, to be later 
ine ! 26 3; given to the destination process (in any number of different ways). 
48C 1054 ; Inputs: 
48C 1055 ; 
48C 1 2$ 3 R6 = XWB address 
Rope ! 2 3 NET_Q_NCB = Descriptor of scratch space for NCB 
poet 1 25 ; Outputs: 
4BC 1060 ; 
Rees 1061 ; = status code 
4BC 1396 3 NET_Q_NCB = Descriptor of resultant NCB 
048C 10635 ;- 
04BC 1064 BUILD_NCB: ; Build the NCB 
048C 1065 3 
04BC 1398 : Enter ‘nodename::' 
04BC 1067 2 
53 O0028'CF DO O4BC 1068 MOVL NET Q NCB+4,R3 ; Get output buffer pointer 
5B OO00'CF DO 04C1 1069 MOVL NETSGC_CNR_NDI,R11 ; Get root for searc 
A 04 bec8 1070 CLRL 1 3; Indicate no NDI yet 
58 3A A6 3C O4C8 1071 MOVZWL XWBSW_REMNOD(R6) ,R8 : Get remote node address 
04CC 1076 SSEARCH eql ndi,l,tad 3 Find NDI with matching address 
18 50 £9 0409 107 LBC — RO, 108 : If LBC none, use node address 
rt3" 1074 SGETFLD ndi,s,nna ; Get the node name 
0A 50 £9 O4E7 1075 Lec) Osa, 108 : Invalid if LBC 
57 95 OQ4EA 1076 TSTB R7 3; Is name null ? 
06 13 O4EC 1077 BEQL 10$ 3; If EQL use node address 
O4EE 1078 3 
ReEE + 44 3 Enter ASCII nodename 
os as FW. vw Ocee 1083 MOVC3 R7, (RB), (R3) ; Move node name 
07 «11+=«O4F 108¢ BRB 20$ 
04F4 108 3 
ot 1085 3 Enter node address converted to ASCII 
50 3A A6 Hs O4F4 1086 10$: MOVZWL XWBSW_REMNOD(R6),RO 3; Get node address 
FB0S' 30 O4F8 1087 BSBW NE TSBIN2ASC 3; Move after conversion to ASCII 
83 3A3A BF BO Behe 1938 208: MOVW #*A's 3", (R3)4 ; Move delimiter 
B28 1991 3 Enter taskname 
83 22 90 26 1 35 MOVB #*a'’’®  (R3)4 3; Enter delimiter 
50 O0BA C6 9A 30 109 MOVZBL XWBST_RPRNAM+1(R6),RO : Get object number 
Of 13 0508 1094 BEQ : If EQL then use taskname 
FAF3° 38 apa 1095 BSBW We FB INGASE 3; Else convert to ASCII and move 
83 3D 5 1 38 MOVB #*at=",(R3)+ ; Enter delimiter 
19 «#11 2 : 2 50$ 3; Continue 
3 1098 : Enter O=taskname 
83 3030 8F 0 0512 11 ° 30$: MOVW #*Aa'O=',(R3)+ 3; Enter O= : 
089 —€ 0517 11 : MOVAB XWBST_RPRNAM(R6) ,R1 : Point to process name field 
D aif 11 P 3; Save pointer 
03 0 1E 1104 BSBW GET_PR_NAM ; Move the name text 
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NE TPROCRE - Process creation 16-SEP-19 7: AX/VMS Macro V04-00 e 
v04=-000 BUILD_NCB - Build NCB for sti conne att 7 5) 34 $3 INETACP. SRCIJNETPROCRE .MAR; 1 _ (3) 
et 2 1 1105 POPL 3; Recover pointer 
32 4 11 $ BLBC -60$ ; If Loc t - illegal name format 
63 «68 8 2 ft 1 mMOovC3 4 , (RB), (R3) 3; Enter taskname 
2 ; 1109 $ Enter remainder of NCB 
83 2F 90 0528 1111 50$: Move weal (R328, ; Enter delimiter 
83 OO0C'CF B0 5 1118 VW : Enter local Link number 
51 5B A6 9E 0533 111 MOVAB KUBSE” yy terse R1 : Get address of counted data 
50 1 9A 05 1114 MOVZBL (R1),R0 ; Get its length 
0 6 O53A 1115 INCW +, : Include its count field 
63 —si11 0 gi 0 C 2 1318 MOVCS RO,(R1),#0,417,(R3) 3; Enter into fixed size field 
1 QOAS C6 SE 0542 111 OVAB XWOSB_LPRNAM(R6) ,R1 ; Address local task specifier 
50 8 SA bee 1118 MOVZBL (R1)+,R0 ; Get its length 
63 61 50 28 054A 1119 MOVCS RO, (RI), (R3) : Move it 
83 6 90 O54E 1120 MOVB MAA" (R34 ; Enter terminator 
0024'CF CO 0551 1121 ADDL R3,NET_Q_NCB ; Update size in descriptor 
50 01 90 0556 11 ¢ MOVB #1,R0 3 Indicate success 
05 0559 1123 60$: RSB 
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- Process cre 
GET_PROC = Locate process to accept conn 5-SEP-19 NETACP.SRCIJNETPROCRE .MAR; 1 (15 
; r 1} f » SBTTL GET_PROC - Locate process to accept connect 
A ile? : 
A 11 8 ; Find the OBI block associated with the local object. If the OBI is 
55A 1129 ; for a declared name or object then pass the NCB to the declaring 
55A 1130 ; process's mailbox, otherwise create a process to receive the connect. 
55A 1131 ; If there is a server process waiting for more work, then tell the 
2 ry 1} § ; server process that it can have the connect request. 
3 A 1 4 : Inputs: 
3 A 1 $ ; R6 = XWB address 
3F 1 8 ; Own storage 
55a 1140 : Outputs: 
5S5SA 1141; 
Biak Hise ine 
055A 1144 GET_PROC: : Get t t th : 
58 Q000'CF DO 035A 1145 VL. NETSGL.CNR_OBI,R11 ‘anew 
51 OOAS g6 35 OSSF 1146 MOVAB XWBST_CPRNAM(R6),R1 ; Address local task specifier 
033C 30 0564 1147 BSBW GET i ; Get its ZNA field 
28 50 «2€9 «0567 1148 BLBC RO, TOS : If LBC then format error 
a 
056A 1151 : Find the OBI CNF 
a 
pa 3C 056A 1136 MOVZWL #NETSC DR_NOBJ = ; Assume failure due to unknown object 
SA D4 O56F 1136 CLRL R10 tas : Indicate no current CNF 
0571 +115 SSEARCH at obi,s,zna ; Find OBI block with this CNF 
17 50 8 OS7E 1158 BLBS RO, 20$ : If LBS then CNF was found 
68 0581 1159 TSTB ss (RB) : Is this a numbered object connect ? 
10 12 0583 1160 BNEQ 10$ : If NEQ then no such object 
57 QO0B'CF 7D 0585 1161 MOva NET _Q _TASKZNA,R7 ; Else use default TASK ZNA descriptor 
51 90 9A 058A 116¢ MOVZBL S*#NFBSC_OP_EQL,R1 : Specify match operator 
A 4 058d 116 CLRL R10 :; Start from head of List 
FAGE® 30 O58F 1164 BSBW CNFSKEY_SEARCH ; Look for the CNF 
3a 5 8 bees 1165 BLBS RO,25$ : If LBS then found, br to continue 
0218 31 059 1166 10$: BRW 106$ : Complete with error 
358 118 
29 1169 ; The OBI CNF has been found. See if the object has been "declared" 
33 1309 : If not, build the .COM file file i.d. and setup its descriptor. 
598 117 : 
59 1198 20$: $GETFLD obi,l,ucb ; Get the associated UCB 
52 50 €9 +. 1174 BLBC e ; If LBC then not declared name 
0014"CF 58 00 A6 1175 MOVL R Wet ucB ; Save the UCB pointer 
5aB 1126 S$GETFLD obi, (,pid : Get the declarer's EPID 
3F 50 E9 386 117 BLBC —_ RO, 80 : If LBC then treat as undeclared 
38 dO 28 1178 MOVL R8,R : Convert from EPID to IPID 
00000000 ' GF 16 BC 117 JSB G*EXESEPID_TO_IPID E ive 
0004 ‘CF 8 3 5C 1180 MOVL RO,NET b PTD 3; Save the PID 
A O5¢? 1181 MOVZBL #NETUPB$~CONNECT,- : Setup the function code 


wee RE cer baer n’ 16-SEP-1984 Oh g7 98 AX/VMS Macro V04-00 Page (if 


eation r 
ocate process to accept conn 5-SEP-1984 NETACP.SRCJNETPROCRE.MAR; 1 5) 


NET_L_FCT 3 
BRW 100$ ; Return to pass NCB to mailbox 


3; The object is a named object which could not be found in the 
; object database. Use the requested object name to construct 
; the name of the command procedure, rather than consul sing the 
; OBL entry (we are currently set to the ‘TASK’ O81). If the 

: object name starts with a ‘'$"', then the object is ‘reserved 

3 ro 


to DEC’’, and we get the command procedure m SYSSSYSTEM. 


51 O0AS i) 3 25$:  MOVAB XWBST_LPRNAM(R6),R1 ; Address local task specifier 
gee BSBW GET_PR ; Get its name 
53 Q038°CF 8D MOVL NETO _TSkK+4,R3 ; Get address of output buffer 
6 68 91 CMPB (REY, BAA''S 3; Does the name start with ‘'$''? 
of 1 BNEQ 28$ 3s If so, 
28 4 put RS ; Strip ‘'S'’ off front of name 
0032'CF 28 MOVC NET_Q_SYSTEM,=- ; Prefix name with ‘’SYSSSYSTEM:"’ 
63 0036'DF @NET_O SYSTEM+4, (R3) 
63 68 57 28 28$: MOVC3 R7,(R8Y,(R3) 3; Move the name 
0034'CF 53 CO ADDL  R3,NET_Q_TSK : Update filename size 
26 «Oo BRB 40§ : Continue 


; Build filespec of object command procedure 


30$: MOVZWL #NETSC_DR_NOBJ,- 
NET_L“REASON 
SGETFLD obi,s,sfi 
BiBc—- RO, 55$ 
MOVQ  R7,NET_Q_TSK 


Assume error 


Get parsed file id 
If LBC then file id is invalid 
Update filename descriptor 


04 
0008 ' CF 


: Create a process name. 


$GETFLD obi,s,nam 
BLBS 


R 

: mova Nef Q NETPREFIX,R7 

50$:  MOVC3 R7,(RB),a@NET_Q PRC+4 
I WA" *, (R3)+ 


MOVL NET_C_LNK,RO 
BSBW NETSBINZASC 


ADDL = R3,NET_Q_PRC 


: If the connect did not use format type 2, then don't attempt 
3; = @ proxy login. 


CMPB =: XWBST_RPRNAM(R6) #2 ; Format type 2? 
BEQL ; Branch if so 
MOVB #NMASC_ACES_NONE, INT_B_PRX ; Disallow proxy access 


Get object name for prefix 

If LBS then name was found 

Setup standard prefix descriptor 
Move the prefix 

Move the delimiter 

Get the local Link number 
Convert to ascii and append as 
the suffix 

Done with process name 


a 
oS 
Sad 


oo2c’cF 53 CO 


02 0089 £6 91 
004A'CF 00 90 


“ 
— 
Fe 
oe 


: If no access control was specified, use default from OB! block 


$GETFLD obi,l,prx 3; Get proxy login state 


ee ec ce ce ce ce ce ee ce ce ee ee ce ee ee ee ee ce ee ee ec ee ce ee ce ee ee me ee ce ce ee ee ee cee ee ce ee ee ce ee ee ee ee ee ee ee eed a od "= 


PIPIPIPIPDPOPINIPUNIPININDININYNINININPYNINININININININININININININYNPIPININININY 2 9 9 9 
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CNAME AN @§ OOO NAUE WN $0 OOONAULS WN 0 OONAULS WN 0 OONOAU SWRI OOONAUS WT 


: 
o03e"cre 39 5 6 
: 


NE TPROCRE 
v04-000 


og49rcr 28 

8 Bock 8 
5 

03 = 5 

13 

00 

OO04A'CF 

75 8F 57 

13 

ag 

15h 


So 
So 
o 
oo 


53 = 0040'CF 
83 


FE AS 01 
63 68 57 


OO3SC'CF 53 
0248 


—CcO f£OMm0O orn 


at 
m 


wo wo~-woououom 
owo- OoWwerpmowow —-v 


WN 
— 


> 


52$: 


55$: 


6C*: 
70s: 


80$: 


81$: 


82$: 


83$: 


ocess creation 
PROC = L 
$3) 1239 
654 1240 
659 1241 
65— 1 ts 
61 124 
664 1244 
O06 1245 
668 1246 
0668 1247 
pest 1248 
671 1249 
0673 1250 
0676 1251 
0679 1 28 
0679 125 
0684 1254 
0684 1255 
0684 1256 
0684 1257 
0684 1258 
0684 1259 
0689 1260 
0688 126% 
0688 ice 
068B 1263 
068B 1264 
0688 1265 
0697 1266 
0697 1267 
0697 1268 
0697 1269 
0697 1270 
Q06A3 1271 
06A7 1676 
06AB 127 
06AB 1274 
0680 1275 
eet: 1676 
0683 1277 
0683 1s78 
0683 1279 
0683 1280 
0688 1281 
06BA 1686 
068C 128 
O6CA 1284 
bene 1285 
600 1 36 
06D \s 7 
605 1288 
6—0 1289 
6E3 1290 
06E7 1291 
6—9 1 35 
6E9 129 
6E9 1294 
6E9 1295 


ocate process to accept conn 


CMPB 
BLEQ 
MOVZ 
BRW 

$GET 


MOVL 
LRW 
$DIS 
<= 
<N 
<N 
> 
$DIS 
<e- 
<N 
<N 
BISW 
MOVC 
ADDL 
BSBW 


MOVL 
CLRL 


CLRL 
SSEA 
BLBS 
RW 
TSTL 
BEQL 
$GET 
BLBC 
CMPL 
BNEQ 


R8,0B1_B_PRX 
AB KWBSB_COGIN(R6) ,RB 
(RB)+7R 


B 16 
SSEp=1984 02:9 


60 
Ts ACES ase 
& R7 ,#NETSC_MAXACCFLD*3 
WL #NETSC_DR_IMLONG,- 
NET_L-REASON 
1008 


FLD obi,s,iac 


Enter the flags word followed 


NET_Q_ACC+4,R3 
(R35+ 
PATCH TYPE=B,INT_B_PRX - 


MASC_ACES_OUTG, 80$>- 
MASC"ACES-NONE, 80$>- 


PATCH TYPE=B,O0BI_B_PRX - ; 


MASC_ACES_OUTG, 80$>- 
MASC~ACES-NONE, 80$>- 


#1,-2(R3) 

3 -R7. (RB), (R3) 
R3,NET_Q_ACC 
uP’ CASE 


1368 as Macro V04-00 
1:33 (CNETACP.SRCJNETPROCRE .MAR; 1 


If LBC 
Store i 
Get address of access info 

Get total size F 

Is it 3 null (counted) strings 
If so use access info in OBI 
Disallow proxy access 

Store it 

Too long ? : 

If LEQU then move the strings 
Indicate network failure type 


oe none specified 


Continue 
Get inbound access control 


by the access control strings 


Get pointer to access control buffer 
Clear the flags word 


; Don't set flag if proxy disallowed 


Don't set flag if proxy disallowed 


say “proxy login allowed’’ 
Move access control strings, 
even if it’s null. 

Complete string size calc. 
Up-case all pertinent strings 


Attempt to find an available server process which is waiting 


for a connect which matches 
NETSGL_CNR_SPI,R11 
R10 


R8 

RCH neq,spi,l,ir 
RO 636 4 
89 
XWBSL_PID(R6) 


FLD spi,l,pid 


RB, XWBSL_P1D(R6) 
81$ 


Sete te Se Se Ge Se Se Ge Se Se Se 


Always check the access control, 
his way, 
control is used (each object can 


with proxy requested. Thi 


it's context. 


Get root of SPI database 

Start at eagranrns of List 

Search key s zero 

Find an SPI with an IRP NE 0 

Br if found, check process 

Else, create process 

Is this connect “tagged” for a 
specific process? : 

If so, get PID of this server 

(if not present, error, skip entry) 
Is this server the intended process? 
If not, then continue searching 


even for processes started 
if different default access 
specify a unique account, 
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NETPROCRE - Process creation 16-SEP-1984 01:27:29 VAX/VMS Macro v04-00 Page 30 
v04-000 GET_PROC = Locate process to accept conn ~3Fb 1 382 83:51:93 NETACP.SRCINETPROCRE .MAR; 1 . (15) 
ne } 98 ; including NONE), the wrong process isn't matched. 
669 1298 $GETFLD spi,s,acs : Get ACS for server process 
3 50 9 Q6F4 1299 BLBC Hi 1§ ; Cif not present, error, skip entry) 
50 600 cree D O6F7 1300 va Nef Q ACC,RO : Get access string for new connect 
61 50 00 68 57 2D O6FC 1301 CMPCS R7, TRB) ,#0,RO, (R1) : Does it match? 
B6 «il2 B58 ! 8 BNEQ 81§ : If no match, keep searching 
0704 ! Be ; Make sure the process's ‘'proxy request’’ flag matches. 
704 1306 $GETFLD spi,v,prl ; Get proxy login fla 
A850 =€9 O70 1 th BLBC RD. BIS" s (if fot present, orfer, skip entry) 
58 0040'DF 01 00 ED O712 1308 CMPZV = #0, #1,QNET_Q_ACC+4,R8 ; Does proxy login flag match? 
oF 612 Brie : ” BNEQ 81§ ; If not, try to find another server 
071B 1311 : For logical Links which request proxy access, require 
Be18 1316 ; = that the requesting node and username match as well. 
2F 58 €9 0718 1314 BLBC —s RB, 87$ : If proxy requested, 
O71E 1315 SGETFLD spi,l,rna ; Get remote node address for server 
8E 50 €9 0729 1316 BLBC , ; (if not present, error, skip entry) 
58 3A A6_ BI Ores 1317 CMPW XWBSW_REMNOD(R6) ,R8B ; Is it the same node as the connect? 
88 12 0730 1318 BNEQ $ ; If not, try to find another server 
0732 1319 SGETFLD spi,s,rid ; Get remote user ID for server 
OF 50 €9 Q73D 1320 BLBC RO, ; Cif not present, error, skip entry) 
6F AB 9A 0740 1321 MOVZBL XWB$B_RID(R6) ,RO ; Get Length of RID for new connect 
70 A6 50 00 68 57 2D 0744 1356 CMPCS R7 (RB) ,#0,RO,XWBST_RID(R6) ; Does it match? 
02 12 0748 132 BNEQ 88 3 no match, then skip it 
2S 1543 13S¢ 87$: BRB SEND_TO_SERVER ; Server ok, send it the connect 
FF68 31 O74F 1326 88$: BRW 81$ ; (Branch helper to top of loop) 
0752 1327 89$: : 
0752 1328 ; 
075 1368 ; Create the user process 
0752 1330 . 
0752 1331 $CREPRC_S - ; create a process 
075 1336 INPOT= NET_Q_PROC,- ; Network NETSERVER.COM filename 
0752 133 OUTPUT= NET_Q_ACC,- ; Access control springs 
0752 1334 ROR= NET_Q_NCB,- ; 1st NCB (solely for LOGIN proxy use, 
0752 1335 PRCNAM= NET_Q_PRC,- ; Process name : 
0752 1336 MAGE= NET~Q"IMAGE,- : Image (LOGINOUT) to run first 
0752 1337 PIDADR= NET L_PID,- ; Place to store process id 
075 1338 BASPRI= G*SYS$GB_DEFPRI,- 3 AP He 
0752 1339 IC= #<*010816+*040>,- ; UIC is [10,40] 
0752 1340 STSFLG= #<STS M_NETLOG>,- ; This is a network process 
0752 1341 MBXUNT= MBX_URIT ; MBX for termination 
gree 1 rk: : notification 
07 50 gs O78E 134 BLBS RO,90$ ; If LBS process was created 
01 C 0791 1344 MOVZWL #NETSC_DR RSU,- ; Assume because couldn't get 
0008 ' CF 793 «1345 NET_L_REASON ; the resources 
1B sOCOidT? re 1346 BRB 3; Take common exit 
50 O0004°CF pO 0798 1347 90$: MOVL NET _L_PID,RO ; Get the EPID returned by CREPRC 
58 50 00 1543 1 $8 MOVL ; Save EPID | 
00000000'GF 16 O7A0 134 JSB G*EXESEPID_TO_IPID : Convert to internal PID format 
0004'CF 50 ° 7A6 1350 MOVL RO,NE EPID ; Use internal format of PID 
04 3C O7AB 1351 MOVZ2WL #NETUPDS~PROCRE,- : Say "process created’ 
0000'CF 7AD 1352 NET_C_FCT : 


NE TPROCRE - Process creation 16-SEP-1984 :27: AX/VMS Macro V04-00 Page 
V54~000 GET_PROC = Locate process to accept conn ies 83:37:93 NETACP.SRCJNETPROCRE .MAR; 1 . dh) 

780 1353 ; 

7 1 54 : The network process is <> renee: Now create an SPI database entry 

i } 2? : so we can keep track of it 

0081 30 QO7B80 1 25 &sBw CREATE_SPI ; Create SPI database entry 
0783 1358 : Ignore errors if can't be inserted 
05 0783 1359 100$: RSB ; Common exit 
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NE TPROCRE - Process creation 16-SEP-1984 7: AX/VMS Macro Vv04-00 Page 32 
-000 SEND_ io. SERVER = Send connect to waiting 5-SEP-1984 t $3: $f $3 NETACP.SRCIJNETPROCRE .MAR; 1 . (16) 
7B4 1361 .SBTTL SEND_TO_SERVER = Send connect to waiting server 
wee 1368 3 
7B4 1364 ; There is a waiting server which can handle the incoming connect. Set 
Moy ! 9? ; it up so that the server can accept the logical Link. 
7B4 «(1 5 3; Inputs: 
7B4 (1 of ; 
7B4 «(1 § : R11 = SPI CNR address 
7B4 1370; R10 = CNF for server database entry 
7B4 1371; 
7B4 | ie -< 
784 1373 SEND_TO_SERVER: 
56 SA 00 07B4 1374 MOVL 10,R6 ; Save address of old CNF 
rent. 3 0787 130? BSBW NET$GETUTLBUF : Get permission tc use utility buffer 
F843' 0 O7BA 1 6 BSBW hs L ; Initialize utility buffer 
58 56 p00 O7BD 137 MOVL 6,R : Pass address of old CNF 
F83D" 30 o7¢0 1378 BSBW  s CNF SCOPY : Copy old CNF to new CNF space 
57 00246'CF 7D O7C3 1379 MOV NET_Q_NC8,R7 ; Get descriptor of NCB 
14 1380 SPUTFLD a 3; Store it 
57 0034°CF 7D 0703 1381 V T_Q_TSK,R7 3; Get -brecedure filespec 
B78 1386 SPUTFLD Sp »$,Sfi ; Store it 
57 OO2C'CF 7D O7E3 138 va T_Q_PRC,R7 3 Get process name 
ores 1384 SPUTFLD spi $-one :; Store it 
FBOA' 30 O7F 1385 SBW C FSIN ERT : Insert new CNF (R10 = UTILBUF) 
O7F6 1386 3; and delete old CNF (R6) 
O7F6 1387 3: returns: R10 = valid CNF 
O7F6 1388 SGETFLD ast pid ; Get PID of server process 
0004 'CF 58 DO 0801 1389 MOVL vet L_PID 3; Make it seem as if it was just created 
0806 1390 SGETFLD s SP rp ; Get | ody DECLSERV IRP 
F7EC' 30 0811 1391 BSBW ‘ réccR. IELD ; and clear it from database 
53 58 dO 0814 1336 MOVL R Get IRP address 
38 A300" DO 0817 139 MOVL sAisss NORMAL, IRPSL_IOSTI(R3) ; Set success into IRP 
3C AB 0004"CF DO 081B 139% MOVL L_PID D, 1RP RPSL 10ST2(R3) ; Return IPID of SPI process as well 
55 1C AS DO 0821 1395 MOVL Thpst= UCBIR R3), bs! ; Get UCB address 
00000000'GF 16 0825 1396 JSB G*C OnSP Post i and complete the request 
. $e 0828 1337 BSBW NETSDE ANS ount for completed transaction 
0000'CF 04 3s BB 4 1338 1 a WNETUPDS. PROCRE »NET_L rch? “Felt NETDRIVER that process exists 


NETPROCRE 
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eate SPI database entry -$Fb 1982 83; $f; $3 NETACE. SAEINEYPROGE Page i} 


ww 


s ti 
SPI r NETACP. REIN ETPROCRE.MAR; 1 (17) 
; 1¢ »SBTTL CREATE_SPI - Create SPI database entry 
4 1405 : 
4 1404 ; Subroutine to create an SPI database entry after having just created 
r 1? 5 ; the network process. 
4 14 5 3; Inputs: 
4 1408 ; 
4 1409 ; R6 = XWB address 
4 1410 ; Own storage 
4 1411; 
4 1316 ; Outputs: 
4 1415; 
0834 1414; RO = Status code 
834 1415 :- 
8 4 1416 CREATE_SPI: 
F7C9" 30 4 141 BSBW NETSGETUTLBUF ; Get permission to use wrth ity buffer 
5B O000'CF be tH 1418 MOVL NETSGL ENR Pl. R11 ; Get root of SPI databas 
F7C1" 30 43 C 1419 BSBW CNFSINIT_U : init putility buffer as : CNF block 
58 0004'CF 00 7 1420 MOVL NET - Pb, us : PID of server process 
8 44 1421 SPUTFLD spit “pid 3 Store parameter into onees 
58 0040'DF 01 00 EF OB4F 14 ; EXTZV #1;QNET_Q_ACC+4,R8  : Get proxy flag sent to LOGIN 
0856 14 SPUTFLD CHL, ; Store it 
57 OO3C'CF 7D 0861 1424 MOVQ NET =G_ACCR? ; Get access control sent to LOGIN 
0866 1425 $SPUTFLD s on : Store ACS string sent to LOGIN 
58 3A AG 3C 0871 1426 OVZWL Xx as, “RERNOD (RO) R8 : Get remote node address 
0875 1427 SPUTFLD s oo 3; Store it 
57 6F A6 9A 0880 1428 MOVZBL xWB$B_ RID(R6) -R? : Make descriptor of RID 
58 70 A6 JE C884 1429 MOVAB XWBST— -RID(R6) “RB 
bese 1430 SPUTFLD spi,s,rid ; Store it 
56 D4 089 1431 CLRL 3; No roid CNF entry 
F768" 30 0895 1432 BSBW CNFSINSERT : Insert into database 
05 0898 1433 RSB 


G1 


NE TPROCRE - Process creation 16-SEP-1984 01:27: AX/VMS Macro V04-00 Pa 34 
v04-000 GET_PR_NAM = Get name of object procedur 5-SEP-1984 3:34:93 NETACP.SRCJNETPROCRE .MAR; 1 = (18) 
99 1435 .SBTTL GET_PR_NAM - Get name of object procedure | 
4 1? § » SBTTL GET_PR_ZNA = Construct ZNA string for an object 
99 1438 : 
BURG | toe 
9 1444 ; R1 = Address of local task specifier 
532 1448 : Outputs: 
$899 1445 : R7/R8 = Descriptor of resultant string 
O899 Jee 
944 1448 -ENABL LSB 
99 1449 GET_PR_NAM: ; Get procedure name 
58 O11C'CF oF Baee 1450 MOVAB poreyt Re ; Setup buffer pointer 
Ss B9E 1451 MOVL R8,R 3; Make a copy 
oc 3 BBAa 1336 ont Pe suas 5$ 3; Continue 
oa Se: a Pah thee 
; Make aco 
BS OT AT 90 OBAB 1456 MOVE; 1(81),(R3)4 S Enter object type 
50 81 33 OBAF 1457 5$ CVTWE = (R1)+.RO ; Get format type, skip over object type 
07 i 08B2 1458 BNEQ 20$ : If NEQ then not numbered object 
FF Al 95 0884 1459 10S: TSTB =-1(R1) : Is object type zero ? 
1D 13 0887 1460 BEQL 40$ : If EQL then error 
28 11 0889 1461 BRB 60$ ; Else we're done 
FF Al 95 0888 1298 20$: TSTB =1(R1) 3 is object type zero ? 
16 12 O8BE 146 BNEQ 40$ 3; If NEQ then error 
50 O01 91 bars 1464 CMPB #1,R0 ; Format type 1 is a counted string 
07 13 O8C3 1465 BEQL o$ : If EQL then go move the string 
50 02 91 O8CS 1466 CMPB #2,R0 3; Format type is UIC + counted string 
0c ig Sere 1467 BNEQ 0$ 3 then format type is unknown 
81 OD BCA 1468 TSTL (R1)+ :; Skip over UIC 
50 81 9A OBCC 1469 30S: MOVZBL (R1)+,R0 3 Get taskname string size 
05 13 O8CF 1470 BEQL 40$ ; If EQL then illegal format 
oc 50 91 O8D1 1471 CMPB RO, #MAX_TASKNAM : Is it within bounds? 
09 «#18 O8D4 1478 BLEQU 50$ : If LEQU then Legal format 
50 D4 O08D6 1473 40S: CLRL RO ; Else, indicate error 
0008 *¢? 3C Bape 1008 MOVZWL ma et ; Setup network failure code 
08 11 08DD 147% BRB ete en : Take common exit 
65 6] 35 8 O8DF 1477 50$: MOVC RO, (R1),(R3) ; Enter string 
57 23 . Mee: 8 + 1273 60$: SUBL RB. RS,R7 ; Get string size 
0 O01 4»0 E7 147 MOVL #1,R 3; Indicate success 
05 tts 1089 70$: RSB 
08EB 12B2 -DSABL LSB 
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NE TPROCRE - Process creation 16-SEP-1984 01:27: AX/VMS Macro V04-00 Page 35 
V O06 TELL_DRV = Call NETDRIVER gS EET obs 5:31:93 NETACP.SRC INE TPROCRE.MAR; 1 ° (19) 
EB 1484 .SBTTL TELL_DRV - Call NETDRIVER 
EB 1485 ;++ 
EB 14 § ; 
5B 1? 4 ; Call NETDRIVER to perform a given function. 
EB 1289 3; Inputs: 
EB 1490 ; 
bees 133] 3 NET_L_RO-R5 = Arguments to NETDRIVER function 
Baee 1298 TELL_DRV: ; Tell driver about process 
50 OOO0'CF 7D O8EB 1494 MOVQ NET_L_RO,RO ; Get regs for call 
52 i 7D Bro 1495 MOVQ NET_L_R2,R2 3 
54 010'CF 7D F 1229 MOVQ NET_L_R4,RS ; 
F703" 30 O8FA 149 BSBW ©=- CALC_NETORIVER : Call driver 
05 O8FD 1498 RSB 
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NE TPROCRE - Process creation 16-SEP-1984 01:27: AX/VMS Macro V04-00 Pa 
WO4e000 UP_CASE = Upcase the LOGINOUT strings g7 SEF 18 4 3:37:63 ENETACP. SREINEYPROCRE MAR: 1 ” (3) 
43 13 9 » SBTTL UP_CASE = Upcase the LOGINOUT strings 
FE 13 ; 
FE 1 : ; The NCB (up to the ''/''), the access control strings, the taskname, and the 
fe 13 ¢ 3 process name are up-cased in place. 
FE 1 $ 3 INPUTS: none 
FE 1507 ; 
4 13 3 3 OUTPUTS: none 
0 43 1310 3 ALL register contents are preserved. 
0 FE 1318 i= 
FE 1515 UP_CASE: ; Up-case strings passed to LOGINOUT 
3F 0 Os i 1514 PUSHR #*M<RO,R1,R2,R3,R4,R5> ; Seve regs wid 
55 Q000°CF 43 4 1515 MOVAB NETSAB_UPASCNUM,RS ; Get translation table 
oF Og 90 1318 MOVB M*A'/* CRS 3; Setup terminator 
53 eed 9€ 0908 151 MOVAB NET_Q_NCB,R3 ; Point to NCB descriptor 
C 10 090D 1518 BSBB UP_TT 3 Up-case it in place 
54 D4 OQO90F 1519 CLRL 4 . ; sey “no terminator” 
53 O034'CF 9E 0911 1520 MOVAB NET_Q_TSK,kS ; Point to task-name descriptor 
33. 10 0916 1521 BS8B uP_TT ; Up-case it in place 
53 OO2C'CF 9E& 0918 15 § MOVAB NET_Q_PRC,R3 ; Point to process-name descriptor 
2C 10 O91D 15 BSBB UP_TT ; Up-case it in place 
53. O03C'CF 7 O91F 1524 MOVAB NET_Q_ACC,R3 ; Get access control descriptor 
51 04 A3 DO 0924 1525 MOVL 4(R3)7R1 3 Get pointer to strings 
51 02 CO 0928 1526 ADDL #2,R1 : Skip over flags word 
52. 81 «= 9A.s«(092B-=s1527 MOVZBL (R1)+,R2 : Get count of ytes in username 
36 =: 10 O96 1528 8SBB UP_CASE_LOOP ; Start at end of loop 
52 4 9A 09 1368 MOVZBL (RT)+,R2 3; Get count of bytes in password 
1 10 09 1530 BSBB UP_CASE_LOOP 3; Start at end of loop 
52. 81 QA 0935 1531 MOVZBL (RT)+,R2 : Get count of bytes in account name 
e¢ 10 0938 15 ‘ SBB_«UP_CASE L00P : Start at end of Loo 
7E O04 AB 6 C1 Ba aA 15 ADDL3 = (R3),4(R3),-(SP) : Get address of end of strings 
8E 51 D1 OQO93SF 1534 CMPL 1, (§P)+ ; Have we gone too far? 
03 1A 0942 1535 BGTRU 10 ; If GTRU then yes 
3F 6BA 0944 1536 POPR #*M<RO,R1,R2,R3,R4,R5> ; Restore regs 
05 0946 1537 RSB 
0947 1338 
0947 1539 : 
0947 1540 108: BUG_CHECK NETNOSTATE,FATAL ; Access control strings setup 
0948 1541 ; incorrectly 
0948 1306 
948 154 
948 1544 -ENABL LSB 
948 1545 . 
63 3C 0948 1546 UP_IT: MOVZWL (R3),R2 ; Get string length 
51° 04 03 00 ae 1547 MOVL  4(R35,R1 : Point to strin 
12 11 0952 1 48 BRB uP_CASE_LOOP : Start at end c¥ loop 
50 : 90 0954 138 208 MOVB (RT)+,RO ; Get next character 
54 0 91 0957 1550 CMPB RO,R4 3 Is it the terminator? 
0D 13 Q95A 1551 BEQL 60$ ; If EQL yes, we're done 
50 6540 9 95C 1 26 MOVB (R5)CROJ,RO 3; Up-case it ; 
98 1 960 155 BEQL UP_CASE_LOOP : If EQL then not alpha-numeric 
FF AI 0 90 a ! 2 MOVB RO7=1(RT) ; Store up-cased value 
966 138 UP_CASE_LOOP 
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vour000" UPPERSE = Upease the LOGINOUT strings  'S-SEP-1984 92:54:83 ENETACE. SRCINEYPROCRE.MAR: 1° (30). 
EB 52 fe aa i 60s s0eced R2,20$ Loop for each character 
96A 156 -DSABL LSB 
13 
1 
15 
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Symbol table 


ir 
BUGS_ACPMBF AIL 
BUGS _NETNOSTATE 
BUILD NCB 
CALL_RETDRIVER 


CNFSCLR FIELD 
CN 


CNFSINSERT 
CNFSKEY_ SEARCH 
CNF SPUR 
CNFSPUT FIELD 
CNF$_ADVANCE 
CNFS$_QUIT 
CNFS_TAKE_CURR 
CNFS-TAKE_PREV 
COMSPOST 
CONNECT 
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esect name 


NE - 
NETTLOCK_CODE 


Phase 
Initialization 
ey processing 


Synbol table sort 


Symbol table output 
Psect synopsis output 
Cross-reference output 
Assembler run totals 
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Allocation 
00000000 ( 0.) 
00000000 ( 0.) 
00000130 (¢ 705+) 
000000 ( 130.) 
444 5 ( 2410.) 
000001 ( 300.) 
forwoenraae 
Page fauits CPU Time 
34 00:00:00.05 
129 00:00:00.98 
741 00:00:29.71 
0 00:00:04.21 
631 00:00:06.49 
56 00:00:00.40 
6 00:00:00.03 
0 00:00:00.00 
1599 00:00:41.88 


The working set Limit was 900 pages. 
| 163425 bytes (320 pages) of virtual memory were used to buffer the intermediate code. 


ewe neem smaweaoces } 
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! Performance indicators ! 
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00:00:00.31 
00:00:02.95 
00:00:49.52 
00:00:07.91 
00:00:14.79 
00:00:00.96 
00:00:00.03 
00:00:00.00 
00:01:16.49 


PSECT No. Attributes 
00 ¢< 0.) NOPIC USR 
( 1.) NOPIC USR 
( §°} NOPIC USR 
( -) WOPIC USR 
( 4.) NOPIC  USR 
( 5.) NOPIC  USR 


~SEP=1984 


“SEP=1984 


< 02:81:83 


| There were 160 pages of symbol table space yy to hold 2818 non-local and 95 Local symbols. 


1563 source Lines were read in Pass 1, 
65 pages of virtual memory were used to define 


Macro Library name 


“$52 2SDUATS: f SHRL IB IWMAL IBRY MLB; 1 


$255$DUA28 : CSHRLIBIEVC 
“$255$0UA28 : (NETACP.OBJ 
:CNETACP. 
« 8:CSYS.OBJ 
$255SDUA28: 
TOTALS (all tet tad 


EF MLB; 1 
NETDRV. ts 1 


LI8.ALB;1 
SYSL IBISTARLET. MLB; 2 


progyc 08.2¢ 
5 


object records in Pass 
macros. 


ere eet eee wee eRe eee eee SH HH 


3081 GETS were required to define 44 macros. 


There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:NETPROCRE/OBJ=OBJ$:NETPROCRE MSRC$:NETPROCRE/UPDATE=(ENHS$:NETPROCRE) +EXECMLS$S/LIB+LIB$:NET/LIB+LIBS$:NETDRV/LIB+SHRL IBS 


‘t 
rw 
eh eh th tht) 
alval 
os 
> 


LCL as NOEXE NORD 
LCL NOSHR EXE RD 
LCL NOSHR NOEXE RD 
LCL NOSHR NOEXE RD 
LCL NOSHR EXE R&D 
GBL NOSHR EXE RD 
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NOWRT NOVEC 


NOWRT NOVEC 
NOWRT NOVEC 
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